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LBR_SUBS 18-Sep-1984 98: 7:4 VAX=11 Bliss-32 V4.0-74 Page 1. 
14-Sep-1984 12:537:4 DISKSVMSMASTER: CLBR.SRCIJSUBS.B32; 1 (1) 
( 
LANGUAGE (BLI ahs 
— = Be 880" 


MODULE LBR_SUBS ! General Library procedure routines 


BEGIN 


' 

PITITITILILILI LLL LLL LLL LLL LLL LLL iii litiiiii iii iii iii 
'@ 

‘w COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

'w ALL RIGHTS RESERVED. 


® 
® 
® 
® 
® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY ®* 
is TRANSFERRED. ‘ 
® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
ix CORPORATION. : 
® 
* 
® 
oa 
® 
® 


'w DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

PETITITILI LILI LIL LLL LIL LLL LLL LLL LLL LLL 

+4 | 

' 

} FACILITY: Library access procedures 

i ABSTRACT: | 
| 


The VAX/VMS Librarian procedures implement a standard access method 
to Libraries through a shared, common procedure set. 


i ENVIRONMENT : 
VAX native, user mode. 


SOWDNAVUES WN (OO ONOAOUES WN OO OODNOUES WN" O OONOUS win 


AUTHOR: Tim Halvorsen, Benn Schreiber 

CREATION DATE: June, 1979 

i MODIFIED BY: 

v03-003 JWT0101 Jim Teague 20-Apr-1983 


Correct check for maximum number of control indexes. 
Control indexes run from 1 to 16, inclusive. 


NOONE WN 0 ODN UE WN 0 OD NOU EWN | OO ODNOU EWN SHO OONOULS WN“ OOONOUE WN 
a ed dd dd dd OOOO 
* 


. 
. 
. 
° 
. 
. 
. 
o 
. 
° 
. 
. 
. 
e 
. 
° 
. 
° 
. 
e 
* 
. 
° 
. 
. 
7 
2 
+ 
e 
- 
° 
. 
o 
7 
w 
. 
° 
. 
° 
7 
o 
. 
° 
. 
e 
. 
* 
- 
° 
. 
° 
~ 
° 
. 
° 
. 
. 
- 
° 
. 
. 
. 
* 
ae 
. 
e 
. 
° 
. 
e 
. 
° 
. 
. 
° 
. 
o 
+ 
° 
. 
7 
. 
. 
ao 
7 
° 
+ 
° 
e 
. 
- 
° 
e 
. 
° 
° 
. 
° 
° 
° 
. 
° 
. 
e 
. 
° 
. 
° 


PAN & BBB BEE EB PWIA WINNING nononononongnonyg 2 2 oo 


NOUS WN OOONOUE WN 


| 


VAX=11 Bliss-32_V4.0-74 p 
NRKSUNGMASTER SCL OR SRcdsuBs.032;1 2% «15 


Xe 


1982 98:95:29 


iy: 
ep- 
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eee ) 


LBR 


_SUBS 1 1984 02:07:42 - VAX=11 BLiss-32_v4.0-74 
yOe2000 Declarations Pree o ee 8g gees TTR SUMBHASTERSCLBR-SRC9SUBS.B32; 1 (2) | 


; 61 060 1 XSBTTL ‘Declarations’; 

_ 061 1 

we B26 1 LIBRARY 

; 664 0065 1 "SYSSLIBRARY:STARLET.L32'; ! System macros 

; 65 0064 1 REQUIRE 

; © 0065 1 *PREFIX'; ! Librarian general definitions 

3; (UOOF 0204 1 REQUIRE 
; OB 8 9? ’ "LBRDEF'; ! Librarian structure definitions 
; 70 0797 1 EXTERNAL | 
; 0798 1 Lor$gl_maxread, ' Max blocks to read at once 
2 0799 1 lbr$gl_hictl, ! Highest control block allocated 

; £ 0800 1 Lor$gl_rmsstv ! Returns STV on RMS errors 
3; 6 66 0801 1 Lbr$gl-control: REF wate ! Pointer to current control block 

; fe Bans : lorS$al_ctltab: VECTOR Lbr$c_maxctld; ! Pointers to control blocks 

:-- oF 0804 1 EXTERNAL ROUTINE 
; 0805 1 remove_cache : JSB_1, ! Remove entry from cache 
; 79 0806 1 lookup_cache : JSB_2, ' Lookup entry in disk cache 

; 80 0807 1 add_ cache : JSB. 2 ' Add entry to cache 

; 81 0808 1 LbrSget_vm : JSB_e, ' Allocate memory 

; S¢ +t : lor$free_vm: JSB_2; ! Deallocate memory | 
; 84 0811 1 EXTERNAL LITERAL | 
; 86 0813 1 Lor$~invkey | 
: 87 0814 1 Lbr$_keynotfnd, 
; «688 0815 1 Lbr$_Libnotopn; 

; 689 0816 1 

: 90 0817 1 FORWARD ROUTINE 

; WwW 0818 1 et_mem : JSB_2, ' Allocate dynamic memory 

; F 0819 1 ealloc_mem : JSB_2, ' Deallocate dynamic memory 
; F 0820 1 et_zmem : JSB_2 ! Allocated zeroed memory 
: 94 0821 1 validate_ctl J§B.1, ! Validate control table 
; 9 Obes 1 alloc_block 2 ' Allocate disk block 
; «496 0823 1 dealloc_block $B8_1, ! Deallocate disk block 

; 97 0824 1 write block B_2, ! Write disk block 

; 0825 1 read_Block : JSB_2, ' Read disk block 

; 99 0826 1 read_n_block $B_2. ' Read multiple disk blocks 
; 100 0827 1 find_block : JSB_3; ' Read vbn from disk and cache if not there 
: 101 0828 1 make_upper_case : JSB_3, ! Guarantee name all upper case 
3; 102 08 ¢? 1 moveto_upper_case : J5B_3, ! Upcase and move string 

: 10° te incr_rfa: JSB_2 NOVALUE; ' Increment RFA by byte count 


4 
LBR_SUBS 18-se 1984 02:07:4 VA 
042000 MAKE _UPPER_CASE 1ersee=19Rs 9529528 I eee 


liss- vas ehe$ 
MASTER: CLBR.SRCJSUBS.B32;1 (3 


; 196 o8 g } ZSBTTL ‘MAKE_UPPER_CASE'; 

: 108 834 1 GLOBAL ROUTINE make_upper_case (idesc, odesc, upcase) : JSB_3 = 

: 109 0835 2 BEGIN —_* sf . 

bm Be a 

; \\¢ 838 i Upper case the name described by string descriptor idesc 

s 11 0839 ' Put the name at preset secer found by odesc. Length may be 

3: (114 0840 ! modified if trailing blanks. 

. oan 0841 ! 

Bike a | oes 

: 118 0844 2 } idesc string descriptor for the name or address of binary value 
; 6119 0845 ! odesc string descriptor for output name ov address of binary value 
: 1$0 bets } upcase if true then raise case, else just check length and copy 
HBB | ouerns 

: 124 0850 i string converted to_upper case. trailing blanks eliminated and 

; \¢? pees odesc Cdsc$w_length] modified to reflect this. 

3 \sf 0858 If binary keys are passed, the value is merely copied. 

3 4 te $ | Return value: 

> 131 0857 $ i true name upper cased and length ok 

; 136 0858 § ! Lor$_invkey name is O-length 

3 13 0859 ! lbr$_keynotfnd name is too long 

TB BE Se 

: 136 0862 é idesc : REF BBLOCK, 

3 137 08635 2 odesc : REF BBLOCK; 

1B BEB ou 

: 140 0866 ‘ namlen = idesc Cdsc$w_length] : WORD, 

3: (141 0867 2 iname = idesc Cdsc$a_pointer] : REF VECTOR C,BYTE] 

; 142 0868 ¢ index_desc = .lbr$gl_control (Clbr$l_hdrptr] + thd$c_idxdesc 

: 143 0869 * (.lbr$gl_control Clbr$l_curidx] - 1) 

3 144 0870 2 * Tdd$c_length : BBLOCK, 'Point to index desc. 
; 133 oe?) 2 oname = .odesc [dsc$a_pointer] : VECTOR C,BYTE); ‘Output vector 
$167 $878 If NOT .index_desc Cidd$v_ascii] 'If binary keys 

: 105 BS Seah: PF | ena tant cane te at 
3 .odesc = ..idesc; ! then just co e value 
3s 150 0876 RETURN true; - ae 
eB 8h 

5 138 0879 ! Handle ascii keys differently 

; 155 0881 IF .mamlen EQL 0 ‘ '0-Length name is illegal 
: 138 ass ’ THEN RETURN Lbr$_invkey; 

; 138 aes Name length is ok, convert to upper case 

F Hy OB INCRU i FROM 0 TO .namlen-1 DO 

: 162 0888 IF .iname C.i)] EQL ZASCII ' ' ‘If character is a space 
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4 

UB 1b-s Sep-1984 VAX-11 Bliss-32 V P 5 | LBR_ 
800 MAKE _UPPER_CASE 12286871384 93:95 DISKSVMSMASTERSCLBR-SRCIsuBS.032;1 “7° (3). v04= 
> 163 0889 OR .iname C.i] EQL 0 ! ; 4 
Bie nest ; THEN BEGIN ; a ~ descri d | a 

M4 i t tput t it ; 
; 166 $89 & odesc (Cdsc$w_length] = .i; nto hos Mapes leat Ripe | 
; 167 0895 4 EXITLOOP; ; 4 
; 168 0894 4 N ; 4 
: 1% Bae, Gf SE Lec tneme Cu1) GEQU ASCII d | 4 

3 name ‘a’ 'co a rt t : 
; an 0897 4 ANd inane [i] LEQU EASCIT'2" + Peer apenas Se Begs” ess | : 4 
: 17¢ 0898 4 AND .upcase) if not upcasing then just copy s § 
3; 17 0899 4 THEN oname 1) = .iname (.i] - (HASCII a '- RASCII A ") ; 4 
: if 9300 Wo: ELSE oname = ,iname C.il; : | 
: 176 090¢ 2 IF .odesc [dscSw length] GTRU .index.dese [iddSu_keylen] !Check too | 3 4 
srr 090 onen’R N’TbrSokeynot tnd” — My Specks 1 aT eee ; 4 
s 178 0904 ELSE RETURN true 3s 4 
3; 179 0905 1 END; 'Of make_upper_case ; 4 


LBR_SUBS 
\V0%-000\ 


TITLE 
IDENT 
-EXTRN LBRSGL_MAXREAD, LBRSGL_HICTL 
ex RN LBRSGL~ =RASSTV. LORSGL CONTROL 


-EXTRN LBRS$~ “iE ynoTEND. tBRS. LIBNOTOPN 
.PSECT $CODES$,NOWRT,2 


| 

| 

| 

} 
SEXTRN LBRS$_ILCCTL, LBRS_INQKEY | 

| 
OOF8 8F BB 00000 MAKE_UPPER_CASE:: 

PUSHR 


#°M<R3,R4,RS.R6.R7> > 0834 
53 00006 CF D0 00004 MOVL LBRSGL_CONTROL, R3 > 0868 
54 12 A300 00009 MOVL  18(R3), R4 + 0869 
56 OA B344 7E 0000D MOVAQ aiOcnsscnea, R6 : 
56 OOBC C6 9E 00012 MOVAB 188(R6), RO : 
54 04 Al 00 00017 MOVL  4(ODESCS, R4 > 0871 
05 66 £8 0001B BLBS (R6), 1$° : 0873 
63 60 DO OOO1E MOVL (IDESC), (ODESC) : 0875 
59 11 00021 BRB 10$ : 0876 
60 B5 00023 1$: TSTw  (IDESC) : 0881 
09 if 0025 BNEQ 2$ : 
50 000000006 8F D0 00027 MOVL § #LBRS_INVKEY, RO + 0882 
4F 11 000 BRB 11$ : | 
57 60 3C 00030 2s: MOVZWL (IDESC), R7 > 0886 
5” 7 000 DECL =? ; 
53 D4 00035 CLRL : : 
2F 11 00037 BRE $ 3 
55 04 8043 9A 00039 38: MOVZBL a4(I IpEScC II, RS ; 0888 
20 55 91 0003E CMPB RS, : | 
4 13 00041 BEQL «6s 4S" : 
5 D5 00045 TSTL ORS : 0889 
61 83 6 000G7 4s oeG tS copese) ? 0892 
21 11 O004A BRB bg : 0891 


LBR_SUBS 
vite MAKE _UPPER_CASE 
61 BF 55 91 0004C 5$: CMPB RS, #97 : 0896 
10 1F ° BLSSU 6 ; 
7A —soBF 91 CMPBseaR5, #122 t 0897 
A 1A 0005 BGTRU 68 ; 
7 2 £9 005 BLBC UPCASE + 0898 
6344 5 20 B3 3068 SUBB3 a3 RS, oF CRO] : 0899 
6344 ge 90 0006 $$ MOVB RS, (I)CR4I + 0900 
33 D6 00066 7$ INCL I + 0886 
57 53 D1 00068 8$ CMPL | R7 : 
CC 1B 00068 BLEQU 3$ : 
02 Ab 61 Bi 906p 9$ CMPW © (ODESC), 2(R6) + 0902 
09 B 00071 BLEQU 10$ : 
50 000000006 8F D0 00073 MOVL § #LBRS_KEYNOTFND, RO > 0904 
03 11 OOO7A BRB 11$ : 
50 01 00 0007C 10$:  MOVL #1, RO ; 
OOF8 8F BA OOO7F 11$: POPR #*M<R3,R4,R5,R6,R7> + 0905 
05 00083 RSB : 


3; Re 


] 
Sep-1984 74 VAX-11 Bliss-32_V Pa | 
t ae 1 93: 93: ¢ DISK SvMeM TER: clea OcRCISUBS. B32;1 - (38 
; Routine Size: 132 bytes, Routine Base: $CODE$ + 0000 
| 
| 


4 
LBR_SUBS 1-Se -1984 02:07:4 VAX-11 Bliss-32 V4.0-7 Page 7 
vO0=000 MOVE TO_UPPER_CASE 102800-1984 93: 7:4 DISKSVMSMASTER: lak. SRC SUBS.B32;1 (4) 

; (181 0906 1 XSBTTL ‘MOVETO_UPPER_CASE'; ee | 
; 188 oe : GLOBAL ROUTINE . t Y (Len, instri ing) : JSB_3 | ; ’ 

; moveto_upper_case en, instring, outstrin sd 7 = | . 
: 184 909 2 BEGIN . | ; 4 
>; 185 910 2 LOCAL ; 4 
; 196 911 indesc : BBLOCK Casc$e. s_bln] | ¢ ; 
: 18 312 outdesc : BBLOCK Cdsc$¢_s_bind, | _ 
; 188 091 status; | . 4 

; 189 0914 : 
; 190 0915 2 indesc dsc$u _length]_= 2>4 
; 191 0916 indesc gscs a-pointer) = “inst ing: | <4 
; 198 91 outdesc (dsc$a_pointer] = ,outstring; : 4 
E,. 916 status = make _Upper_case (indesc, outdesc, true); | 
> 194 919 2 RETURN status; | 74 
; 195 0920 1 END; | si 
3; 4 
| ; 4 
ais 
52 DD 00000 MOVETO_UPPER CASE:: » 4 
PUSHE R2 ; 0908 4 
SE 10 C2 90002 SUBL2 #16, SP ; : 4 
08 AE 50 8B 3008 MOVW LEN, INDESC ; 0915 ee 
OC AE 31 DO 00009 MOVL § INSTRING, IND ESC +4 ; 0916 4 
04 AE 2 D0 0000D MOVL § OUTSTRING, OUTDESC+4 : 0917 ; 4 
51 6—E 9E 00011 MOVAB OUTDESC, R1 ; 0918 3; 4 
50 08 AE 9E 00014 MOVAB INDESC, RO ; ; 4 
52 01 00 00018 MOVL #1, R2 : 3 4 
FF5E 30 00018 BSBW MAKE_UPPER_CASE ; ; 4 
SE 10 CO OOO1E ADDL2 #16,~SP ; 0920 ; 4 
04 BA 00021 POPR #*M<R2> : ; 4 
05 00023 RSB ; | 
; Routine Size: 36 bytes, Routine Base: S$CODE$ + 0084 : , 
3 (4 


F 4 
eagee13Be 95:95:25 = WN ShAStERcchGR sacSsuas.e32;1 2% 58 


H 137 ; 1 } ZSBITL 'GET_MEM'; 

: 12? 2 § : GLOBAL ROUTINE get_mem (bytes, retadr) : JSB_2 = 

: 201 925 1 !<-- 

: o¢ 9 § 1! 

; 20 9 1 } This routine allocates virtual memory for the Library access 

; be 4 8 : } routines. The memory will not be zeroed. | 
; 0930 1 ! Inputs: | 
: $08 Sh ee | 
: oe 5 ¢ 1! bytes = number of bytes to allocate 
$ 8 , Z : retadr = address to receieve address of memory 
: 211 0935 1 ! Routine value: | 
: \¢ 0936 1! 
: 21 0937 1! LibS_insvirmem insufficient virtual memory 

> 216 Baae 1! Lib$S_badblosiz bad block size 

3 219 0939 1! true success 

: 216 0940 1 !-- 
: e217 0941 1 
; 218 0942 1 LBRSGET_VM (.bytes, .retadr); ! Allocate the memory | 


00006 31 00000 GET_MEM:: 
BRW LBRSGET_VM : 0942 


; Routine Size: 3 bytes, Routine Base: SCODES + O0A8 


<r 
wo 
=~ 

a 


4 
bese -1984 07:4 VAX-11 Bliss-32 V4.0-74 Page 9 
12-8 08- 1 3b 95:07:45 DLEKSVMGMASTERSCLOR  SRCISUBS.832;1 . (6) 


DEALLOC_MEM 


| 
; rh } ZSBTTL "DEALLOC_MEM'; | 
: 388 945 1 GLOBAL ROUTINE dealloc.mem (bytes, address) : JSB.2 = | 
: 226 947 1 !<<- | 
: 5 948 1! 
; $ BoP ! Deallocate dynamic memory. | 
: : | 
3 8 $31 1 ! Inputs: 
: 209 936 1 | 
; 0 955 1! bytes = Number of bytes to deallocate. 
: 1 R20 ! } address = Starting address to deallocate. 
: j 996 1 | Outputs: 
§ 4 957 1! 
3 5 0958 1! None 
3 0959 1 !--- 
3 7 0960 1 
; 238 0961 1 LBRSFREE_VM (.bytes, .address); ! Deallocate memory 


00006 31 00000 DEALLOC_MEM: : 
BRW LBRSFREE_VM ; 0961 


; Routine Size: 3 bytes, Routine Base: S$CODE$ + OOAB 


ALAA ALAA A ms eA A mi mi A A A A As mi Ai Mi Ais Mi M1 Ai Mi Ms Mi 1 Mi Mi Fi Mi Mi hs A 


H 4 | 
16-Sep-1984 :07:4 VAX-11 Bliss-32 V4.0-74 Page 10 LBR, 
GET_Z2MEM 12280071382 95:95:05 DISK SVMSMASTERSLLBR. SRCISUBS B32; 1 " (7) v04: 
: 2460 368 1 SSBTTL ‘GET_ZMEM'; 
> 24) 965 1 
: re aoe : GLOBAL ROUTINE get_zmem (bytes, retadr) : JSB_2 = 
> 266 966 1 tecs 
> 245 967 1! 
; “8 208 1! This routine obtains dynamic virtual menory > Re 
: rtf 84 ; : } and zeros the memory as well before returning. 
: $86 7 A eee | 
: 2} 973 1: bytes = Number of bytes to obtain 
: 26 are : } retadr = Address to return address of memory 
: 256 0976 1 | Outputs: 
; 58 0978 | | th 4 | 
: $28 on i i. e memory is zeroed. | 
; 258 0980 1 
: 259 0981 BEGIN 
; 260 098 
: 261 098 LOCAL 
: 26 0984 status; 
; 26 0985 
: see bane perform (get_mem (.bytes, .retadr)); ! Get the memory | 
; 266 0988 CHSFILL (0,.bytes...retadr); ! Zero the memory 
; 267 0989 
; 268 0990 RETURN true 
: 269 0991 1 END; 


| 
| 
| 


3C BB 00000 GET_ZMEM:: 
PUSHR #°M<R2,R3,R4,R5> 3; 0964 
52 51 pO 0000 MOVL RI, Re F 
5 50 00 0000 MOVL RO, R : 
51 3¢ DO 00008 MOVL  RETADR, R1 > 0986 
50 5 D0 Bp pbe MOVL BYTES, R é 
EA 10 0000 BSBB Ss GET_MEM : 
OA 0 3 0001 BLBC STATUS, 1$ : 
53 00 6E - 09 ¢ 9901 MOVCS #0, (SP), #0, BYTES, @0(RETADR) : 0988 | 
50 of DO OO01A nov, #1. Rg ? 9990 | 
C BA 0001D 1$: POPR #*R<R2,R3,R4,R5> : 0991 
05 O001F RSB F 


; Routine Size: 32 bytes, Routine Base: S$CODE$ + OOAE 


98: VAX-11 TY 32 V Page 1 

DLEKSVMGMASTERSCVGR SRCISUBS.B32; 1 (8) 
993} XSBTTL "FIND BLOCK’; | 
994 i “C) ROUTINE find_block (vbn, blockaddr, entry) : JSB_3 = | 


yOc2000° F IND BLOCK 7:6 


This routine reads the given VSN from the disk and caches it 
in memory (if it is not already there). 


99 
99 
9 
99 
99 
00 
1001 LOCAL 
18 cachentry : REF BBLOCK; 
10 IF lookup_cache (.vbn, cachentry) 
10 THEN .blockaddr = .cachentry Ccache$l_address] 
10 ELSE BEGIN 
10 porters (read_block (.vbn, .blockaddr)); 
10 perform (add. Tache (.vbn, cachentry)); 
10 
10 
10 
10 2R 
10 1€ 


paemenary cache$l _address blockaddr; 
pm. e .cachentry; 


| 
} 
! 
| 
| 
Sern ue | 


WO OONOUF wn 


VLSSSLSALAVSS 


ror 


!Of find block 


=" 
co 


0000 FIND oa 


BB O 
USHR  #*M<R3,R4> : 0994 
5E 04 ¢2 0000 SUBL2 #4, SP ; 
5 51 00 0000 MOVL R1, R3 ; 
54 50 DO 00008 MOVL RO, R4 ; 
51 6— 9E 00008 MOVAB CACHENTRY, R1 + 1004 
50 54 06 0000€ MOVL -VBN, RO ; 
00006 30 00011 BSBW _ LOOKUP_CACHE ; 
09 50 €E9 00014 BLBC i$ : : 
50 6 DO 90017 MOVL  CACHENTRY, RO : 1005 3 
at 08 AO DO OOO1A MOVL  8(RO), (BLOCKADDR) : : 
1F 11 0001 BRB : : 
51 23 00 99 1$: MOVL §_BLOCKADDR, R1 : 1007 ; 
50 4 4 0 MOVL § : 
i L 4 : . 
~ 0090v 0 BSB READ 8 BLO ; 
51 gE Se 0005¢ MOVAB eAtieatRy® R1 > 1008 | ; 
50 4 p OoF MOVL VBN, R : | : 
00006 0 BSBW ADD D CACHE : : 
gp E BLBC = STA $ : | : 
0 6 o9 00 MOVL §CACHEN Atri > 1009 : 
08 A 63 D 99 MOVL (BLOEKADDAD © Os cr0) : : 
¢ —E 00 F 2%: MOVL CACHENTRY, (ENTRY) + 1011 : 
1 D0 dhe MOVL 1, RO : 101 : 
5€ 4 ¢ 045 3$: ADDL2 #4, SP : 101 | 3 
18 BA 048 POPR #*M<R3,R4> : | : 
5 0004 RSB ; | : 
; Routine Size: 75 bytes, Routine Base: SCODE$ + OOCE : 
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ZSBTTL *VALIDATE_CTL'; 
GLOBAL ROUTINE validate_ctl (index) : JSB_1 = 


This routine performs most of the initial ss done 
pur'ing argument validation for the processing routines. 
e 


' 
: Its checks a given control table index for validity and 
also ensures that the Library file has already been opened. 
} Inputs: 
index = Control table index 
} Outputs: 
: Lobr$_lLibnotopn - Library not open 
Lbr$_illctl = illegal control table index 
BEGIN 
Lor$gl_rmsstv = 0; ! Preset to no error 
IF .index GTRU Lbr$c_maxctl ' if greater than maximum, 
a -lbr$al_ctltab C.index-1] EQL 0 ! Or if uninitialized slot, 
RETURN Lbr$_illctl; ! return with error 
lobr$gl_control = .lbrS$al_ctltab C.index-1]; ! Set current index 
ay -lbr$gl_control Clbr$v_open) ! If Library not open, 
RETURN Lbr$_Libnotopn; ! then return with error 
RETURN true; 
END; 
0000G CF D4 00000 VALIDATE_CTL:: 
CLAL LBRSGL_RMSSTV 
10 50 01 608 CMPL INDEX, #16 
07 1A 00007 BGTRU 
OOO0GCF 40 Ope rt BRSAL_CTLTAB-4C INDEX] 
50 000000006 SF B O15 1$: nove MLBRS_ILLCTL, RO 
0000G CF OOOOGCF40 D0 00018 2%: MOVL LBRSAL_CTLTAB-4CINDEX], LBRSGL_CONTROL 
50 0000G CF D 0 MOVL LBRSGL SON TROL RO 
08 06 43 E 88 BBS #1, 6(RO), 3$ 
50 000000006 8F p 09 A MOVL #LBRS$_LIBNOTOPN, RO 
50 01 DO 00032 3$: MOVL #1, RO 


1984 02:07:4 VAX-11 Bliss-32 V4.0-74 
ats 1 95:90: DLEKSVMGMASTERSCLBR SRCISUBS.B32; 1 
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05 00035 RSB ; 1051 
; Routine Size: 54 bytes, Routine Base: $CODE$S + 0119 
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16-Sep-1984 02:07:4 VAX=11 Bliss-32_V4.0<7% Page 15) 
ALLOC_BLOCK 1a-Sep- 38 93: 7:4 DLSKSVMEMASTERSCLOR SRCSSUBS B32; 1 ° (10) 
ZSBTTL ‘ALLOC_BLOCK’; 
GLOBAL ROUTINE alloc block (vbn, address) : JSB_2 = 


WANNA 


Allocate an unused disk block in the file and return 
the address of the block in memory. 


Inputs: 


vbn = Longword to receive VBN of allocated block 
address = Longword to receive address of block in memory 


Outputs: 


vbn = VBN of newly allocated block 
address = Address of block in memory 
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BEGIN 
context = 1LecSot centres Clbr$l_ctxptrJ: BBLOCK, ' Context block 
header = .lbr$gl_control Clbr$l_fdrptr): BBLOCK; ! Header block 


CAL 
cachentry : REF BBLOCK; 
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3 [f__gheeder Clhd$l_freevbn] NEQ 0 ! If logically deleted space, 

36 BEGIN 

36 Pp perform (find _block( ! Read Ist free block 

366 header Clhd$l_freevbn], .address, cachentry)); 

367 -vbn = header Clhd$l_freevbn); ' Return VBN of block 

368 header Clhd$l_freevbn] = ...address;! Dequeue Ist block from chain 

369 header Clhd$l~freeblk] = .header Clhd$l_freeblk] -1; 

370 perform (remove_cache (..vbn)); ' Remove entry from cache so caller may 

371 ! reinsert if desired 

372 END 
373 ELSE 

374 BEGIN 

$2 BIND : 
35 next_vbn = header Clhd$l_nextvbn]; ! End of Library 
378 perform (get_zmem (lbr$c_pagesize,.address)); ! Allocate space for block | 
379 evbn = .next_vbn; : Return VBN of bloc 
$69 next_vbn = .next_vbn + 1; 'next vbn is next block | 
38 ‘ 

388 context Cctx$v_hdrdirty] = true; ! Mark header modified 
385 RETURN true; 

386 ND; 


TEAC SVMBHASTER SEY BR SRCISUBS.B32; 1 


VAX-11 Bliss-32 V4.0-74 


ALLOC_BLOCK 


=800° 


Pad 


L 
V 


w won Ww woraoo ~ oowww 
wn ~ KO ODO 000000 oa Soooo 
>) o oo Oo oooo So ooeerer 
_ re ee = Sk oe ol ol - Sth ce sl col ol 
Perera er er er eT eT er er ee er eee ee ee ee ees es es ee ee ee ee 
A A 
~ ~ 
«= i+ 4 
= ~~ . 
oO oO ~m oO 
a ae a [4 
. ~ s 
wo . co w 
« a=d oO < 
s oO MN ~ . 
~w a is 4 . Ww z wT 
« = ~ =x - @ [o 
bo zooms '— weF Ww vr A> . 
~~ Ooe¢ackc }- VMnwM Oct m~ A ~ 
[+ 4 wo e oOo 2w aw os wo ec 
. tess & —J “ma t= Wa@wess . 
NAWMNR UR ZOMMSTAaAn- wMHM YW) BwHnnwoan 
Seneecvo0om wk O~K~amMn>rD WW NOMMT CMe 
v PAQagcae TF a <aeZzor- ase aoc v 
ZSs3 emwww CF 22 www @MEet One aoww + * EE 
<€ FT —OOT OOM St TON OL A OM Ww Coe Te 
BSR Yer ORK VEU MTB ~SZ IM TBOMVDOOBVRBRAB 
4 
arm 2 = NN NN 
i a a ew be ee ee ee ee ee ee ee: 4 
~wMO> > >>> ro > Pr OaOM > rm e>sragaaqaga>raga>ev rad. a 
YVDDIOO COC OW00M JOCw0M jfO0OW 30 2—-000M 
SACS SESEESESSSE SSS OSS SOSE MOE SSS 
a 
t 
wo 
oO 
_—J oe ee 
=) aA fA 
< _— NN mM 
oO wr eONOCWOMOC Ver ce OOWMmM<E OO Owe 
DQ QOD ee NINN CIPI ST ST TTT UNNUNNIN OO 
S DOOOCOCOCOCOCOCOCOCOCOOOOOOoOoOoOooooo ooo 
So DOOOOOCOOCOOOOCOCOCOCOCOCOCOCOOOOOoOoOooOoOoOO 
QD NCOCOCOCOCOMWOOPCOOCR-COD-OVvVOCouomooa«a«n 
DO VOOOBOOa OFMWOOCoOMW= OGMMUooODoYrWDO 


8F 


OOFC 


o 
TOL OCOOMNVWT ODOT MPEP O00 OMe WOPMIMOe Tu 
onmudae states “alae ypbuiilnies “aiia zOoooe 
ka CS 
uw Oo wo 
oo 
owai ay oom oS 
ocoooew ow o 
o N 
o o 


nc 
ww 


OOFC 


MAMAN WA MOT Mf WN 


wre OoOw 
owo <n 


w 
w 


04 


102 bytes, Routine Base: $CODES + 014F 


; Routine Size: 


LBR_ =1984 02:07:4 VAX-11 Bliss-32 V4.0-74 p 1 **F] 
1986 $3:$7309 296 a 


v04= 00° DEALLOC_BLOCK - B- DISKSVMSMAS TER : claR. SRC JSUBS .B32;1 (1 
1 ZSG1TL ‘DEALLOC_BLOCK'; 
GLOBAL ROUTINE dealloc_block (vbn) : JSB_1 = 


| 

| 

Deallocate a disk block in the file and add the block 
to the logically deleted disk block List. 
| 

| 

| 


i Inputs: 


' 

' 

' 

! 

? 

vbn = Longword to receive VBN of allocated block 
| Outputs: 

' 

' 


None 


BIND 
context = setts control Clbr$l_ctxptr]: BBLOCK, ' Context block 
header = .lbr$gl_Control Clor$l_AdrptrJ: BBLOCK; ! Header block 


LOCAL 
blockaddr : REF VECTOR C,LONG], 
cachentry : REF BBLOCK, 
thisblock : REF VECTOR C,LONG), 
thiscache : REF BBLOCK, 
prevblock : REF VECTOR C,LONG], 
prevcache : REF BBLOCK, 
thisvbn, 
prevbn; 


thisvbn = .header CLhd$l_freevbn block Listhead | 
nthe ag (find. block (.thisvbn, thisblock, chlecacheliz 'Find first block 

revbn = 
tees Bly 
prevcache 


0; 
0; 


i Loop spreuem the free blocks looking for the place to insert 
this block. 


WILE or gray ethisvbn 
i isvbn NEQ 0 


“per torn (find block (.thisvbn, thisblock, thiscache)); ! Locate the block 
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§ 
5 
§ pe perverse (find_block (. yon, blockaddr, ee yy 'Find block in memory 


prevbn = .thisvbn; | Remember aprevious block | 
thisvbn = .thisblock £03; i Link t 

prevblock = .thisblock; : oaesen. the location of it 
prouencne = ,thiscache; 
441 aoe NEQ 0 ! If it goes in the List somewhere | 
44 yg 6} = .prevblock (0); ! Copy forward Link of previous block | 
44h prevblock = .vbn; ' And insert into the List | 
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O3FC 8F BB 00000 eects “te 


VAX-11 Bliss-32 V 
DISKSVMSMASTER: 


: 445 1163 cachentry Ccache$v eS ig = true; rk blocks as dirty 

3 a 1164 cachentry [cache$v_data false; No longer a data block 

: 44 1165 revcache [cache$v_dirty] = true; 

; 448 1198 ND 

: 449 116 ELSE BEGIN : 
; 450 1168 blockaddr (0) = .header Clhd$l_ ae ! Insert into free chain 
: 451 1169 header (Clhd$l_freevbn] = .v vbn> ' Insert into free chain 

: rt 1170 cachentry poachesv. ule. = true; ' hose the block as dirty 

; 45 1171 cachentry Ccache$v_data false; ' No longer a data block 

: 088 1198 -: 

: £28 Wee header Clhd$l_freeblk] = .header Clhd$l_freeblk] +1; ! Count another free block 
: $38 1178 context Cctx$v_hdrdirty] = true; ! Mark header modified 

; 460 1178 RETURN true; 

: 461 1179 1 END; 


#*M<R2,R3,R4,R5,R6,R7,RB,RI> 
#16, SP 


RO, RO 
LBRSGL_CONTROL, RO 
14(RO)> RB 

10(RO). R3 
CACHENTRY, R2 
BLOCKADDR, R1 

VBN, R 

FIND BLOCK 


VBN, THISVBN 
THISVBN 

2s 

THISCACHE, R2 


N PREVBN 
@THISBLOCK, THISVBN 
THISCACHE. PREVCACHE 
CACHENTRY, RO 
PREVBN 
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5 | 
LBR_SUBS 16-Sep-1984 06:97 :4 VAX-11 Bliss-32 ve ened Page $9 
v04-000 WRITE BLOCK 14-Sep-1984 12:37:4 DISKSVMSMASTER:CLBR.SRCIJSUBS.B32;1 (1 | 
: 468 1180 1 XSBTTL "WRITE BLOCK’; | 
: 465 1182 1 GLOBAL ROUTINE write block (addr, vbn) : JSB_2 = | 
; 466 11 1 
; 467 1184 1 !e<-2 
; 468 133? 1! 
; 469 1186 1! This routine writes a block in memory to the Library 
; 470 1187 1! file at the specified block number. 
: (471 1188 1! 
; 47 1189 1! Inputs: 
3; 47 1190 1! 
; 474 17) 2 3 addr = Address of block in memory 
: 475 1336 1! vbn = disk block number 
; 476 1195 1! 
3; 477 1194 1 ! Outputs: 
; 478 1195 1! 
3; 479 1196 1! None 
: 480 1197 1 iee- | 
; 481 1198 1 | 
: 48 1199 2 BEGIN 
: 48 1200 § | 
> 484 1201 BIND 
; 485 1608 2 context = .lbr$gl_control etbest ciaptess BBLOCK, 
: 486 1203 2 rab = .context Ectx$l_recrab]: BBLOCK; | 
; 487 1204 § 
: 488 1205 LOCAL 
; 489 1206 § status; 
; 490 1207 ; 
; 491 1208 2 rab Crab$l_bkt] = .vbn; ! Set block number to write | 
; 49 1209 2 rab Crab$l_rbf] = .addr; 'Set address of buffer for write 
; 49 1210 2 rab Crab$w_rsz] = Lbr$c pagesize; ; ‘And its length 
3 494 1211 2 status = SQRITE (RAB=rab); ‘Write the record 
: 495 sig § IF NOT .status 
: 496 121 THEN Lorsat rmsstv = .rab Crab$l_stv]; 
3; 497 1214 2 RETURN .status; 
; 498 1215 2 
; 499 1216 1 END; 


-EXTRN SYSSWRITE 
52 0D 00000 WRITE_BLOCK:: | 
PUSHL 


R2 : 118 
5 00006 CF 00 0000 MOVL  LBRSGL_CONTROL, R2 : 1383 
5 OE A2 DO 0000 MOVL 1g¢R2), R : | 
5 A 09 0008 MOVL  12(R2). R : 1 05 | 
38 OA 51 00 OO00F MOVL VSN, 56(R2) > 1208 | 
A 0 dO 13 MOVL ADDR. 40(Re) + 1209 
A 0200 8F 80 0001 MOVW #512. 34(R2) : 1210 | 
: DO 0001D PUSHL Re > 1211 | 
000000006 00 t 1F CALLS #1, SYSS$WRITE : | 
6 = $ BLBS StAtUs, 1$ : 1 4 
00006 CF 0c A2 D0 MOVL 2(R2). LBRSGL_RMSSTV > 1813) 
04 BA 6 1$ POPR #°M<R2> ; 1216 


5 | 
1b-se -1984 02:07:4 VAX-11 Bliss-32 V4.0-74 Page 22. 
READ_BLOCK 12-8 08=138e 05:07:46 TTR SUMCMASTERSCLBR. Sac Ssues.832;1 . as 
| 
ZSBITL ‘READ_BLOCK'; 
GLOBAL ROUTINE read_block (vbn, addr) : JSB_2 = 


! om ce | 
: 
This routine reads a specified block and returns 


—— 


the address of the block in memory. 
Inputs: 


addr = Longword to receive address of block 
Outputs: 
addr = Address of block read from disk 


i 
i 
i 
i 
i 
vbn = block number in file 
1 
i 
i 
i 


| 
BEGIN | 
| 
| 


WAPTIMIPINININIPUNININ 2 na-usn.2e le ee 


MEUM OO OBNOUES WN “OO ONOUESWN—"ODOONOu 


| 

-addr = .rab Crab$l_rbfJ; ! Return address 
RETURN .status; | 
| 

| 


BIND 
context = Lora control Clbr$l_gexpgrd: BBLOCK, 
rab «= .context Ectx$l_recrab]: BBLOCK; 
LOCAL 
status; 
perform (get_mem (lLbr$c_pagesize,rab Crab$l_ubf])); ! Allocate storage for block 
rab Crab$w_usz] = Lbr$c_pagesize; ' Set size of buffer 
l_bktJ = .vbn; : Set block number to read 
3 = $READ (RAB=rab); i Read the block into memory 
3 IF NOT .status 
: THEN Lbr$gl_rmsstv = .rab Crab$l_stvl; 
3 
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END; 


-EXTRN SYSS$READ 


1C BB 00000 READ_BLOCK:: 
PUSHR #*M<R2,R3,R4> : 1219 
53 50 7D 0000 mova =e RO : 
50 00006 CF D0 0000 MOVL §LBRSGL_CONTROL, RO : 1239 
50 OE AO D6 OOOA MOVL  14(RO)7 R ; 
52 0¢ Ad D0 0000 MOVL 12(RO). : 1240 
51 34 A2 9€ 0001 MOV 36(R »* RI + 1244 
50 0200 8F 3C 00016 MOVZWL #512, RO : | 
FDFD 9 0018 SBW )SOCGET_MEM ; 
20 0 €9 00 IE BLBC STATUS, 2$ ; 
go A 0200 $F 80 Ve = #512, $2¢R2) : 1245 | 
8 A2 3 0 7 VL ven, 56(R2) : 1 46 | 
2 0D B PUSHL R 3 1247 | 
000000006 00 01 FB 0002D CALLS #1, SYS$READ ; | 


H 5 
LBR_SUBS 16-Sep-1984 VAX=-11 BLi $8032 v4.0-7 Page 23 eof 
pezobo READ_BLOCK 146$ eet 1 96: 9 i DISKSVMSMASTER: (LOR. src SUBS .B32;1 ° a3} 


06 50 £8 00034 BLBS STATUS, 1$ 3 1248) 

0000G CF OC A2 00 00037 MOVL 12(R2), LBRSGL _RMSSTV : 1249 
64 28 A2 D0 00030 1$ MOVL 40(R2), (ADDR : 1250 

1C BA 00041 2$ POPR #*M<R2.R3, sy : 1254. 

05 00043 RSB : | 


; Routine Size: 68 bytes, Routine Base: S$CODE$ + 028D | 


THEN dealloc_mem ((.nblocks-.rblocks)*lbr$c_pagesize, !Then deallocate the memory 
eblkaddr+ (.rblocks*lbr$c_pagesize)); 
IF .rblocks LEQ 0 ! No blocks read 
THEN BEGIN 


IF NOT .status 


5 } 
LBR_SUBS 1b-se 1984 02:07:4 VAX-11 Bliss-32 V4.0-74 Page 24 
v04=000 READ_N_BLOCK 12286871382 95:95:25 DL SKSVMSMASTERSCLBA. SRCISUBS B32; 1 : (14) | 
H re 1255 ! XSBTTL ‘READ_N_BLOCK'; 
3 i 
3 34 1 ; 1 GLOBAL ROUTINE read_n_block (start_block, mum_blocks) : JSB_2 = 
; rh : 8 BEGIN 
; 545 1260 ! This routine reads the giver number of blocks, starting with start_block, 
3 sf ; 2 and caches them in the disk block cache. 
; 548 126 BIND 
; 549 1264 context = tbrsee-pentret Clor$l_ctxptr] : BBLOCK, 
3 331 : 9? Librab = .context Cctx$l_recrab]”: BBLOCK; 
; 126 LOCAL | 
; 328 1268 nbdlocks, | 
; 554 1269 rblocks, 
3 99> 1270 blkaddr, 
; 556 1271 cachentry : REF BBLOCK, 
3 Sor 127 al Ocks, 
; 558 127 rmsStv, 
s Dor 1274 status; | 
; 560 1275 ! | 
; 561 1 6 ! Allocate the memory 
3 266 127 ‘ 
3; 3 1278 IF .mum blocks EQL 0 
; 564 1279 THEN RETURN true; 
; 565 1280 all_blocks = true; | 
; 566 1281 nblocks = MINU (.Lbr$ L_maxread, .num_blocks); 
: 567 1se¢ IF .mblocks LSS .num_blocks 
; 368 128 THEN all_blocks = false; 
: 569 1284 INCRU i FROM 0 TO .nblocks - 1 
: 570 1285 DO IF pookue cache (.start_block+.i, cachentry) 
; 571 1286 THEN BEGIN 
; 276 1287 nblocks = .i; | 
3 of. 1288 EXITLOOP; 
; 574 1289 ND; 
3 Sr 1290 IF .nblocks LEQ 0 | 
; 576 1291 THEN RETURN true; 
3 See 1 4 DO (status = get_mem (.nblocks*lbr$c_pagesize, blkaddr)) 
; 578 \¢3 UNTIL .status 
: 579 1294 OR ((nblocks = .nblocks = 1) LEQ 0); | 
; 580 1295 ! 
3s 3ey 1 36 ! Memory is allocated, read the blocks 
88 : 3 iF blocks GTR 0 | 
; -nblocks 
; «584 1 35 THEN BEGIN 
3 383 1300 Librab Crab$l_bkt] = .start_block; 'Set starting vbn 
3; > 1301 lLibrab [rab$l_ubf) = .blkaddr; ‘and buffer address 
3 5 1 8 librab Crab$w_usz] = .nblocks*lbr$c_pagesize; ‘and byte count 
; 5 130 status = SREAD (RAB=Librab); ‘Read the blocks 
3; > 1304 rmsstv = .lLibrabCrab$i_stvJ; 'Save the STV 
3; > 1305 rblocks = .librab CrabSw_rsz]/lbr$c_pagesize; ‘Compute number of blocks read 
3 ; 1308 IF .rblocks LSSU .nblocks ! and if we did not fill the buffer 
s 1 
: 1 
3 1 4 
3; 1 4 


SSLESLESESE 
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5 
SUBS 1b-se 1984 02:07:4 VAX-11 Bliss-32 V Page 25. 
ybe2008 READ _N_BLOCK 14- sets Lar DISK SKSVMSM TER: lak” se SUBS .832;1 ni (14) | 
: 597 1312 4 THEN Lbr$gl_rmsstv = .rmsstv; 
; 598 1315 4 RETURN .status; 
; 599 1314 END; 
; 600 1315 
; 601 1 1 INCRU i FROM 0 TO .rblocks-1 ‘Loop over ail read 
; 60 1317 4 DO BEGIN 
3; & 1 18 4 IF NOT add_cache (.start_block+.i, Epesentey? !Try to add to cache 
; 604 1319 4 THEN dealloc_mem (Lbr$c _pagesize, -dblkaddr) 
; 605 1320 2 ELSE BEGIN 
3 006 1321 cachentry Ccache$l_address]) = .blkaddr; | 
; 60 1 § 4 END; 
3 ont ! ? 4 blkaddr = .blkaddr + lbr$c_pagesize; | 
; 610 1325 IF snblocks LSSU .num_blocks 'If we did not read all requested 
: 611 1 § AND .status NEQ rms$_eof ! and we did not read to end of file 
; ole 1 AND NOT .all_blocks 
; 61 1328 — read_n “Block (.start_block+.nblocks, .num_blocks=-.nblocks); 
> 614 1329 IF atus EQC Fms$_eof 
; 615 1330 “Then RETURN crus. 
; 616 1331 4 ELSE BEGIN 
; 617 1 3 4 IF a .sta 
; 618 1 4 THEN tbrsgl.. rmsstv = .rmsstv; 
; 619 1334 4 RETURN .status; | 
; 620 1 $2 3 END; 
; 621 1336 § END; 
; 6 § 1337 2 RETURN .status !Could not allocate memory 
3; 6 1338 1 END; !Of read_n_block 
| 
O3FC 8F BB 00000 READ_N_BLOCK:: 
PUSHR #*°M<R2,R3,R4,R5,R6,R7,R8B,R9> : 1257 
2 08 C2 00004 SUBL2 + & SP F 
5 2 DO 00007 MOVL » R8 : 
55 0 DO OOO0A MOVL R5 : 
50 00006 CF 06 9900 MOVL nae CONTROL, RO > 1264 
28 OE AO OD 01 MOVL : 
5 0¢c AO 00 00016 MOVL 12(RO) : 1265 
5 d3 OO1A TSTL = NUM BLOCKS : 1278 
40 13 OO00IC BEQL si : 
59 01 00 00 if MOVL ALL_BLOCKS 3 1380 
20 00006 ¢F D 90 MOVL tate RAXREAD. RO : 1281 
9 D 8 CMPL CKS : | 
1 38 BLEQU 3 
29 D 3 B MOV Nima a.ocks RO : 
58 D1 00051 CMPL NBLOCKS. “NUM BLOCKS : 1282 
02 18 BGEG ; | 
Be CLAL b pBLOCKS : 1283 
56 FF OAS 9E 28 MOVAB TERS). Re > 1284 | 
54 p 003¢ CLRL 37 85 | 
15 11 9 F BRB $ ; 
51 04 AE a 40 3$ prey ae : 
50 55 54 ¢ 0 44 ADDL START i. Ock, RO ; | 
00006 30 00048 BSBW LOOKUP” CACHE : | 
| 
| 


| 
$2' 
fase 707: - =32 V4.0-74 Page 6 - 
e-8ep= 188s 98:95:25 «| NaS kawGmASFeaccloa sacdsuas.e32.1 185 | 
vires READ_N_BLOCK 14-Sep-1984 12:37: } | 
* 9 p fe ae ante 0+ ae ocks ; 138 
: if BRB 6$ i 168 Pse 
4 0 4$: INCL I ; Pse 
56 4 pe 5$ CMPL R6 ; at 
1 BLEQU po 
S b 6 A 6$: Ist NBLOCKS 
14 ; 
1 SE 7$: BRW 8$ 1292 
BOR Re Re pia 3 is 
” ” FD6C 3 0068 BSBW  GET_MEM . ; 
54 § D 8 MOVL RO “STATUS pe 
Hs 3 f Mihai Hints RBLOCKS 8$ + 129% 
= 3 5 $60 73 fae NBLOCKS. + 1298 
SE mG be 
: P 
38 = A2 55 D0 80078 MOVL START BLOCK - 56(R2) i 130¢ 
mf Hi 3 tiie atte a NBLOCKS, 32(R2) ; 130¢ 
20 A2 a3 0200 i A 00086 MUL wie, LOCKS, : 130 
0006 00 é 43 0089 CALLS #1, SYSS$READ ; 
= 54 HH 8 $09 MOV = RQ, TATUS ory t vaee 
ee a ae ml le 
#512, RBL : 
jewel Fie et itl = 
is 4 SO0A tied HN RBLOCKS, RO : 1308 
50 52 09 78 000A7 ASHL #9. ROL ks, RO ; 
24 3g $5 cS SOOAE ste RBLOCKS, NBLOCKS, RO ; 1307 
"EPR a, BB smo 
i if apse rac 1 20$ : 1311 
66 4 €9 0008 BLBC : : 13 
69 F 00C1 11$: BRB 21$ 1313 
52 07 000C3 12$: DECL  R2 ; 
a a pa 
ACHENTRY, R1 : 
25 - $5 i age - ADDL f START BLOCK, RO ; on 
” 00006 : 001 BSBW ADD_CACHE | 
D 50 if 904 BLBS _—-RO, 16s t ves! 
Swe HUB | BA Biss ; 
” =e FCF i Ope BSBW DEALLOC MEN ; 
ee ag ‘am 
5 04 AE D £4 14$: MOVL C TRY, RO, ; . 
a AD ; Ee iss: ADDL 2 BSD. BLKADDR : 23 
6E 00000200 F C0 E 15$: ADDL2 #512, ; 
52 ? Di F5 16$: CHL sF a o 
58 gf ; 4 CMPL OCKS, NUM_BLOCKS ; 
fh re iP eee STATUS, #98938 : 1326 
0001827A «BF 54 OD FF 


A } 


5 
yoe=000" READ_N_BILOCK 16: 30771 38e 98:95:25 «| SI SUmGRASTERSCLOR sRcSsuss.e32;1 2% 135 


1 1 6 EQL =s«17$ F | 
EB 001 LBS_  ALL_BLOCKS, 17$ : 1327 
51 C3 001 SUBL3 NBLOCKS, NUM BLOCKS, R1 : 1328) 
0 ; 1 ADDL3 NBLOCKS, START_BLOCK, RO : 
FEEA 30 0011 BSBW READ N_BL LOCK F | 
0001827A = BF 4 D1 116 17$: cmPL ee #98938 : 1329) 
50 1 p 11F 18$ MOVL ee : 1331) 
B 1 é BRB 22$ : 
05 4 €8 901 $: BLBS STATUS, 21$ +1 
00006 CF ¢ DO 00107 20$:  MOVL  RMSSTV. LBRSGL_RMSSTV +1 
0 DO 0010C :  MOVL STATUS. R +1 
F 8 CO O01eF 22 ADDL2 #8 : 1338 
O3FC F BA 132 POPR Ache, R3,R4,R5,R6,R7,RB,RI> : 
5 00136 RSS : 


; Routine Size: 311 bytes, Routine Base: S$CODE$ + 0201 


; 624 1339 1 


m5 
042800" INCR_RFA 1erSep=198e 13:97:49 DISKSVMSRASTERSCL 


H $58 } r¢ a 1 ZSBTTL ‘INCR_RFA'; 
3 ? 5 1 ? 5 ROUTINE incr irfa (incrmnt, rfadr) : JSB_2 NOVALUE = 
: 630 1344 2! 
; 631 1345 NW i This routine updates the specified rfa by incrementing by 
; 6 ¢ 1 “8 i the given number of bytes. 
3; 6 134 ! 
; 6 1348 i 
; 635 1349 MAP 
3 e ° 1 “9 rfadr : REF BBLOCK; 
; re 1 se LOCAL 
3 O73 : e7 offset; 
; 641 1355 offset = (.rfadr Crfa$w_ offset) + .incrmnt + 1) AND NOT 1; !Compute total # bytes 
: ote 1356 rfadr Frege. offset] = Toffset AND sagtene,, Length - 1); !Compute new offset 
; 64 1357 rfadr (rfa$l-vbn] = .rfadr Crfa$l_vbn 
3 644 1358 (.offset/data$c_léngth); 
; 645 1359 RETURN 
3; 646 1360 1 END; ! Of incr orfa 
52 DD 00000 INCR_RFA:: 
PUSHL R2 

52 04 Al 3C 00002 MOVZWL 4(RFADR), R2 

50 01 A042 9E 00006 MOVAB 1(INCRMNT)CR2J, RO 

50 01 8A 00008 BICB2 #1, OFFSET 

52 50 09 00 EF B000F EXTZV #0, #9, OFFSET, R2 
04 Al 52 B60 0001 MOVW R 4(RFADR) 
50 00000200 8F C6 00017 DIVL2 #512, RO 
61 50 CO OOO1E ADDL2 RO, (RFADR) 
04 BA 00021 POPR #*M<R2> 
05 00023 RSB 


; Routine Size: 36 bytes, Routine Base: S$CODES + 0408 


X-11 B 
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N 
LBR_SUBS 16°S 529-1984 9g: gree VAX-11 Bliss-32 V4.0-742 Page 
v04=000 


INCR_RFA 145 Sep-1984 1 DISKSVMSMASTER:CLBR.SRCJSUBS. 832;1 
648 136) 1 END ! Of module 
649 1362 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 1068 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL. CON,NOPIC,ALIGN(2) 
; Library Statistics 
ae Mee oe ey ee ee Symbols -e------ Pages Processing 
5 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 25 0 581 00:01.1 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=*LIS$:SUBS/OBJ=0BJ$:SUBS MSRC$:SUBS/UPDATE=(ENH$: SUBS) 
; Size: 1068 code + 0 data bytes 


3; Run Time: 00:26. 
3; Elapsed Time: oh 
3; Lines/CPU Min: 304 

: Lexemes/CPU-Min: Bi tt 

: pomery Used: 172 pages 
5 a 


; Compilation Complete 
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